home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / data1.cab / Program_Executable_Files / colsoncd.dxr / Internal_2.ls < prev    next >
Encoding:
Text File  |  2000-01-12  |  1.4 KB  |  42 lines
  1. on enterFrame
  2.   puppetSound("start")
  3.   put EMPTY into field "orderfile"
  4.   put EMPTY into field "masterfield"
  5.   put EMPTY into field "orderfield"
  6.   put EMPTY into field "detail"
  7.   put EMPTY into field "userid"
  8.   put EMPTY into field "distphoneenter"
  9.   if objectp(myFile) then
  10.     set myFile to 0
  11.   end if
  12.   set myFile to new(xtra("fileio"))
  13.   set fileName to getOSDirectory() & "\col93"
  14.   openFile(myFile, fileName, 1)
  15.   if status(myFile) = 0 then
  16.     set theFile to readFile(myFile)
  17.     put theFile into field "distphoneenter"
  18.     closeFile(myFile)
  19.     set myFile to 0
  20.   else
  21.     closeFile(myFile)
  22.     set myFile to 0
  23.     go("license")
  24.     abort()
  25.   end if
  26.   set tester to field "distphoneenter"
  27.   set aa to the number of lines in field "distphonedb"
  28.   repeat with counter = 1 to aa
  29.     if item 1 of line counter of field "distphonedb" = tester then
  30.       put item 2 of line counter of field "distphonedb" & RETURN into field "f_distphone"
  31.       put item 3 of line counter of field "distphonedb" after field "f_distphone"
  32.       put item 2 of line counter of field "distphonedb" into field "distributor"
  33.       set the textFont of field "f_distphone" to "Times New Roman"
  34.       set the textStyle of field "f_distphone" to "bold"
  35.       set the textSize of field "f_distphone" to 12
  36.       set the textSize of line 2 of field "f_distphone" to 18
  37.       set the foreColor of field "f_distphone" to 5
  38.       go("home")
  39.     end if
  40.   end repeat
  41. end
  42.